home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
rfix0312.zip
/
RSB50312.MRG
< prev
next >
Wrap
Text File
|
1993-03-12
|
3KB
|
54 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against C:\174\RBBSSUB5.BAS to produce D:\SOURCE\RBBSSUB5.BAS
* C:\174\RBBSSUB5.BAS: Date 6-20-1992 Size 116575 bytes
* ------------[ Created 03-12-1993 21:25:58 ]------------
* REPLACING old line(s) by new
20460 WhoTo$ = ""
WasY$ = ZFileName$
CALL KillWork (ZNodeWorkFile$)
IF ZUserSecLevel >= ZMinSecPersUpld THEN _
* ------[ first line different ]------
CALL SetWhoTo (ZTrue,WhoTo$,"",RcvrRecNum,Found,ZTrue) _ ' KG012502
ELSE WhoTo$ = "ALL"
ZFileName$ = WasY$
RETURN
* REPLACING old line(s) by new
* ------[ first line different ]------
63355 CALL GlobalSrchRepl (WasX$,"|",ZCarriageReturn$,ZTrue) ' KG011201
ZCommPortStack$ = ZCommPortStack$ + WasX$ + ZCarriageReturn$ ' STack
GOTO 63336
* REPLACING old line(s) by new
63615 ' * Sets up next message base link *
SUB NextConf (DoJoin) STATIC
IF ZLinkedConf$ = "" OR (NOT DoJoin) THEN _
EXIT SUB
* ------[ first line different ]------
* INSERTING new line(s)
63616 EndConf = INSTR(ZLinkedConf$,ZCarriageReturn$) ' KG013001
LastConf = (EndConf = LEN(ZLinkedConf$)) ' KG013001
ZHomeConf$ = LEFT$(ZLinkedConf$,EndConf-1)
IF ZNonStop THEN _
CALL QuickTPut1 ("Joining linked conference " + ZHomeConf$) _
ELSE _
ZOutTxt$ = "Continue to linked conference " + ZHomeConf$ + " ([Y],S)kip,A)bort)" : _ ' KG020801
CALL DeLink (ZHomeConf$) : _ ' KG013001
ZTurboKey = -ZTurboKeyUser : _
ZSubParm = 1 : _
CALL TGet : _
IF ZWasQ > 0 AND NOT ZYes THEN _ ' KG020801
ZWasX$ = ZUserIn$(1) : _ ' KG013001
CALL AllCaps (ZWasX$) : _ ' KG013001
ZLinkedConf$ = ZLinkedConf$ + ZHomeConf$ + ZCarriageReturn$ : _ ' KG013001
IF LastConf OR ZWasX$ = "A" THEN _ ' KG013001
ZHomeConf$ = "" : _ ' KG013001 ' KG013001
ZGlobalRead = ZFalse : _ ' KG013001
EXIT SUB _ ' KG013001
ELSE GOTO 63616 ' KG013001
END SUB
* REPLACING old line(s) by new
63659 ZErrCode = 0
* ------[ first line different ]------
IF ZTempMaxBank > 255 THEN _ ' RM030801
ZTempMaxBank = 255 ' RM030801
END SUB